kann mir einer von euch sagen wie man Arbeitsblätter per Makro ausblenden kann?
Liebe Grüße
Chiara
Sub Ausblenden()
Dim I As Integer
Application.ScreenUpdating = False
For I = Worksheets.Count To 1 Step -1
If Worksheets(I).Name <> "Arbeit" Then Worksheets(I).Visible = False
Next I
Application.ScreenUpdating = True
End Sub
Sub einblenden_sheets()
'Blätter einblenden mit Passwort
Dim Eingabe As String
MsgBox "User need Passwort", vbOKOnly, "INFO an USER"
Eingabe = InputBox("Eingabe von Passwort", "EINGABEBOX für Passwort")
If Eingabe = "test" Then 'dein Passwort
Application.ScreenUpdating = False
Dim I As Integer
For I = Worksheets.Count To 1 Step -1
Worksheets(I).Visible = True
Next I
Application.ScreenUpdating = True
Else
Application.ScreenUpdating = False
End If
End Sub