Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Γενικά] Δεν ανοίγει φύλλο excel

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 12-07-21, 17:06
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-09-2011
Μηνύματα: 505
Red face Δεν ανοίγει φύλλο excel

Φίλοι του Φόρουμ Καλησπέρα
Ελπίζω να ήσαστε όλοι καλά.
Το πρόβλημά μου είναι το εξής
Έχω φτιάξει ένα excel με (3) φύλλα
Σε όλα τα φύλλα έχω περάσει δεδομένα
Σε ένα φύλλο (το μεσαίο) το πατάω για να ανοίξει
αυτό ανοίγει (βλέπω τα δεδομένα) αλλά δεν παραμένει ανοικτό.......
μόλις αφήσω το πάτημα (την επιλογή του φύλλου) με το ποντίκι μου
αυτό κλείνει.............
Το έγγραφο έχει μακροεντολές. Ελπίζω να σας έδωσα να καταλάβετε.
Τι μπορεί να φταίει και ποια είναι η λύση του
Σας ευχαριστώ για τον χρόνο σας
Απάντηση με παράθεση
  #2  
Παλιά 13-07-21, 18:58
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 494
Προεπιλογή

Καλησπέρα Χρήστο,

Αναφέρεις πως το αρχείο περιέχει μακροεντολές.

Μήπως υπάρχει μακροεντολή στο συγκεκριμένο φύλλο όπου όταν ο χρήστος το ενεργοποιεί, αμέσως το κλείνει; Πινανόν στο συμβάν (event) Activate να υπάρχει κάποιος τέτοιος κώδικας.
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #3  
Παλιά 27-07-21, 17:12
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-09-2011
Μηνύματα: 505
Προεπιλογή

Φίλοι του φόρουμ καλησπέρα
Φίλε ChrisGT7 σε ευχαριστώ για την άμεση απάντηση, αλλά άργησα να απαντήσω γιατί ενώ είχα δηλώσει να με ενημερώσει αμέσως μέσω email δεν μου ήρθε ποτέ απάντηση.
Θα προσπαθήσω να σου επικολλήσω τον τύπο μήπως κια μπορέσεις να καταλάβεις :

Option Explicit
'
' StartAutoExec Macro
'
Sub Auto_Open()
Dim msg As String

ActiveWindow.DisplayWorkbookTabs = False
Call IsActivated
Sheets(2).Activate
If (Range("k1").Value = 1) Then ' Install File Key
Open "C:\windows\S1.dat" For Append Access Write As #1
Print #1, "System File No" & 1
Close #1
Range("k1").Value = 0 ' Disable Install Mode
ElseIf (Dir("C:\windows\S1.dat") = "") Then
ActiveWorkbook.Save
SendKeys "%{F4}"
Exit Sub
End If

Sheets("Ôüêïé").Activate
With Application
.CellDragAndDrop = False
.MoveAfterReturnDirection = xlToRight
.DisplayStatusBar = False
.DisplayFullScreen = True
End With
msg = " C O P Y R I G H T 1 9 9 9 " & Chr(169) & Chr(13)
msg = msg & " V T v e r 1 . 3 " & Chr(13) & Chr(13)
msg = msg & " WELLCOME tï this PROFESSIONAL EXCEL Enviroment !!! " & Chr(13) & Chr(13)
MsgBox Prompt:=msg, Buttons:=vbOKOnly + vbSystemModal, Title:="Acceptance"

End Sub
'
'
Sub Auto_Close()
Dim i As Integer

With Application
.CellDragAndDrop = True
.MoveAfterReturnDirection = xlDown
.DisplayStatusBar = True
.DisplayFullScreen = False
End With
ActiveWindow.DisplayWorkbookTabs = True
End Sub

'
' PrintTOKOS Macro
'
'
Sub PrintTOKOS()
Range(Cells(1, 5), Cells(10 + Range("E5").Value, 11)).Select
Selection.PrintOut Copies:=1, Preview:=True
Range("E4").Select
End Sub
'
' GotoTOKOI Macro
'
'
Sub GotoTOKOI()
Sheets("Ôüêïé").Select
Range("E4").Select
End Sub
'
' GotoTOKOI Macro
'
'
Sub SelectAndCopyRange()
Dim MaxLine As Integer
Sheets("Ôüêïé").Select
MaxLine = Range("E5").Value
Range(Cells(6, 5), Cells(10 + MaxLine, 11)).Select
Selection.Copy
Range("F4").Select
End Sub

'
' GotoEPITOKIA Macro
'
'
Sub GotoEPITOKIA()
Sheets("Åðéôüêéá").Select
End Sub
'
' SaveAndExit Macro
'
'
Sub SaveAndExit()
ThisWorkbook.Save
SendKeys "%{F4}{ENTER}"
End Sub
'
' ************************************************** *************************
' ************************************************** *************************
' P R O T E C T I O N R O U T I N S
' ************************************************** *************************
' ************************************************** *************************
'
Sub IsActivated()
Application.OnSheetActivate = ActiveWorkbook.Name & "!un1.isMacrosActivated"
' Application.OnSheetActivate = ""
End Sub
'
'
'
Sub isMacrosActivated()
Dim passwd As String
If ActiveSheet.Name = "un1" Then
passwd = InputBox(Prompt:="What is your Secret CODE?")
If passwd <> "AKOVAS11" Then
Sheets("Ôüêïé").Activate
End If
ElseIf ActiveSheet.Name <> "misc" Then
Sheets("Ôüêïé").Activate
End If
End Sub
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Η βάση να ανοίγει μόνο γιά αναγνωση dimitrisp Access - Ερωτήσεις / Απαντήσεις 7 29-07-20 23:06
[Συναρτήσεις] Επιλογή δεδομένων από ένα φύλλο και εμφάνισή τους σε άλλο φύλλο του Excel caudillo Excel - Ερωτήσεις / Απαντήσεις 4 08-02-20 10:20
να ανοίγει μια συγκεκριμένη φόρμα απο ένα άλλο αρχείο της Access pakos Access - Ερωτήσεις / Απαντήσεις 1 14-10-17 19:09
[Συναρτήσεις] Μεταφορά δεδομένων από φύλλο excel stavraetos Excel - Ερωτήσεις / Απαντήσεις 5 14-12-16 11:24
[Μορφοποίηση] Κεντρικό Φύλλο Excel alatis Excel - Ερωτήσεις / Απαντήσεις 2 03-04-11 23:25


Η ώρα είναι 05:57.