ich habe ein Problem bei dem ich nicht mehr weiter weiss.
Ich möchte, dass der Mitarbeiter die Makros aktiviert, falls nicht, geschieht auch nichts.
Nun blende ich beim Workbook_BeforeClose ein Blatt ein, auf welchem nur steht: " Zur Programmausführung müssen Makros aktiviert werden !" und alle anderen Blätter aus(.Visible = xlVeryHidden).
Das sieht dann so aus:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks("unicité1.xls").Activate
Worksheets("feuil1").Visible = xlVeryHidden
Worksheets("branche").Visible = xlVeryHidden
Worksheets("archive").Visible = xlVeryHidden
End Sub
Beim Workbook_Open steht dann:
Private Sub Workbook_Open()
Worksheets("feuil1").Visible = True
Worksheets("branche").Visible = True
Worksheets("archive").Visible = True
Application.ScreenUpdating = False
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
Userform1.ComboBox1.Enabled = True
Userform1.Show Application.ScreenUpdating = True
End Sub
Bei der Userform habe ich einen Commandbutton = cmdokay, welcher den Worksbook ohne zu speichern schliesst:
Private Sub cmdokay_Click()
Workbooks("unicité1.xls").Activate
Worksheets("feuil1").Visible = xlVeryHidden
Worksheets("branche").Visible = xlVeryHidden
Worksheets("archive").Visible = xlVeryHidden
Application.DisplayAlerts = False
Workbooks("unicité1.xls").Close Application.DisplayAlerts = True
Unload Me
End Sub
Mein Problem ist nun, dass sobald ich auf den Commandbutton (cmdokay) beim nächsten Öffnen wieder ALLE Blätter sichtbar sind.
Ich verstehe das nicht!
Hat jemand vielleicht eine Idee?
Vielen Dank im voraus!
Karin