Hallo |
|
ich denke das ich jetzt erst dein Anliegen richtig erkannt habe. Der neue Code setzt zuerst alle Tabellen ausser dem -AktivenSheet- auf gesperrt. Danach wird dein altes Makro wie gehabt ausgeführt. Würde mich freuen wenn ich damit ins schwarze getroffen habe. |
|
mfg Nobody |
|
|
|
Private Sub CommandButton1_Click() |
Dim j As Integer |
'** Zuerst alle Tabellen ausser ActiveSheet sperren! |
For i = 1 To Worksheets.Count |
With Worksheets(i) |
If .Name <> ActiveSheet.Name Then |
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _ |
AllowSorting:=True, AllowFiltering:=True, Password:=("test") |
.CommandButton2.Visible = False |
.CommandButton3.Visible = False |
.CommandButton4.Visible = False |
End If |
End With |
Next i |
|
On Error GoTo Fehler |
If ActiveSheet.ProtectContents = False Then GoTo Fehler |
ActiveSheet.Unprotect |
CommandButton2.Visible = True |
CommandButton3.Visible = True |
CommandButton4.Visible = True |
Exit Sub |
|
Fehler: |
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ |
, AllowSorting:=True, AllowFiltering:=True, Password:=("test") |
CommandButton2.Visible = False |
CommandButton3.Visible = False |
CommandButton4.Visible = False |
On Error GoTo 0 |
End Sub |