Hilfe bei einem Makro

Hallo
Ich habe folgendes Problem :
Ich habe ein Arbeitsmappe mit 80 Tabellenblättern, welche alle mit einem Blattschutz versehen sind. Es sind nur die Zellen offen, wo der Anwender auch etwas drin machen darf.
Unteranderem in der einen Tabelle20 auch Zellen Formatieren. Nun habe ich ein Makro für mich als Admin erstellt, womit ich in allen Tabellenblättern den Schutz setzen und aufheben kann. Dazu habe ich auch noch ein Makro aufgenommen, welcher den Haken bei
Zellen formatieren setzen soll, wenn der Blattschutz wieder gesetzt wird per Makro.
Nun mein Problem :
Wenn ich den Blattschutz gesetzt habe, und nun das Makro für Zellen formatieren ausführe in z.B Tabelle1 dann komme ich immer in Tabelle20 weil da die Zellen zu formatieren frei sind.
Gibt es hierfür eine Lösung oder einen Weg, das dieses nicht mehr Passiert ?
Mein Makro sieht wie folgt aus :


Sub Formatieren()
'setzt den Haken Zellen formatieren'
Sheets("Tabelle20").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
End Sub

Für Eure Hilfe bin ich sehr Dankbar
Gruß
Ingo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Set v = Workbooks For Each v In Workbooks Windows(v.Name).Visible = False Next v vor Ende Set v = Workbooks For Each v In Workbooks If v.Name <> "PERSONL.XLS" Then Windows(v.Name).Visible = True End If Next v

Hallo Hajo
Nein die CommandButton sind alle auf einer UF, wofür du mir diesen Code gepostet hast um nur die UF zu sehen ohne Tabelle im Hintergrund :
Dim v As Object


Private Sub UserForm_Initialize()
Set v = Workbooks
For Each v In Workbooks
Windows(v.Name).Visible = False
Next v
End Sub


Private Sub UserForm_Terminate()
Set v = Workbooks
For Each v In Workbooks
If v.Name  <> "PERSONL.XLS" Then
Windows(v.Name).Visible = True
End If
Next v
End Sub

Nachdem ich den Code in die UF eingefügt habe laufen meine CommandButton nicht mehr mit dem Makro welches für diese Tabelle ist:
Sub sonstige()
Worksheets(3).Select
End Sub
Hier wird mir nun Worksheets(3).Select als Fehler hinterlegt, dieses hat bis zum hinzufügen von deinem Code gefunzt.
Nun warte ich erstmal eine Reaktion von Dir ab.
Gruß
Ingo

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hilfe bei einem Makro

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread