| 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 |