Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro trotz Blattschutz

Makro trotz Blattschutz
09.06.2008 10:42:00
Maike
Morgen!
Ich habe ein Makro mit dem ich Spalten Ein/Ausblende. Soweit so gut. Nun soll das Arbeitsblatt aber einen Blattschutz (inkl. PW) erhalten. Was muss ich machen, damit das Makro dennoch funktioniert?

Sub HinweiseRules()
If Columns("J:J").EntireColumn.Hidden = False Then
Columns("J:J").EntireColumn.Hidden = True
Else
Columns("J:J").EntireColumn.Hidden = False
End If
End Sub


Danke! maike

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro trotz Blattschutz
09.06.2008 10:45:00
Hajo_Zi
Hallo Maike,

Option Explicit
Sub HinweiseRules()
ActiveSheet.Unprotect "Passwort"
Columns("J:J").EntireColumn.Hidden = Columns("J:J").EntireColumn.Hidden = False
ActiveSheet.Protect "Passwort"
End Sub



AW: Makro trotz Blattschutz
09.06.2008 10:48:00
Maike
Das jetzt anstatt des Alten oder muss ich das woanders einbinden?

AW: Makro trotz Blattschutz
09.06.2008 10:51:00
Rudi
Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect "passwort", userinterfaceonly:=True
Next
End Sub

Dein Makro verkürzen wir auf


Sub HinweiseRules()
Columns("J").Hidden = Not Columns("J").Hidden
End Sub

Gruß
Rudi

Anzeige
AW: Makro trotz Blattschutz
09.06.2008 10:55:55
Maike
Danke.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige