Blattschutz mit VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Blattschutz mit VBA von: Philipp Binder
Geschrieben am: 08.02.2005 14:02:06

Hi Forum,

Ich habe eine Excel Tabelle mit einem hinterlegten VBA Script. Das Script funktioniert auch einwandfrei, aber ich möchte das ganze schützen. Aber sobald der Blattschutz aktiviert ist, funktioniert die Farbmarkierung die das VBA Script macht nicht mehr! Das Script hinterlegt die Werte der Tabelle mit einer Hintergrundfarbe. Aber der User soll natürlich die Werte in der Tabelle nicht ändern können. Ich hoffe mir kann einer Tips geben ...

Gruß Philipp Binder

Bild


Betrifft: AW: Blattschutz mit VBA von: Udo
Geschrieben am: 08.02.2005 14:03:51

Schütz das Blatt mit VBA mit der Option UserInterfaceOnly

Udo


Bild


Betrifft: AW: Blattschutz mit VBA von: Philipp Binder
Geschrieben am: 08.02.2005 14:06:58

Hi Udo,

Leider hab ich nur minimal Ahnung von VBA. Kannst du mir genauer erklären, wie ich mit VBA das ganze schützen kann?

Gruß Philipp


Bild


Betrifft: AW: Blattschutz mit VBA von: Udo
Geschrieben am: 08.02.2005 14:24:53

Kopier den Code in das Modul der entsprechenden Tabelle:

Private Sub Worksheet_Activate()
With Me
  .Unprotect Password:="xxx"
  .Protect Password:="xxx", UserInterfaceOnly:=True
End With
End Sub


Udo


Bild


Betrifft: AW: Blattschutz mit VBA von: Philipp Binder
Geschrieben am: 08.02.2005 14:57:02

Mit dieser Methode hat es geklappt!

Vielen Dank!

Gruß Philipp


Bild


Betrifft: AW: Blattschutz mit VBA von: Willie
Geschrieben am: 08.02.2005 14:10:12

Hallo Philipp

Hast du es schon mal so pobiert? Es sind extra 2 Makros
eins zum alles Ausblenden und das ander um alles wieder Rückgängig zu machen!
mfG Willie
p.S.: Rückmeldung wäre nett

Sub ausblenden()
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayOutline = False
        .DisplayZeros = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .ShowStartupDialog = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
        .ShowWindowsInTaskbar = False
    End With
    Application.CommandBars("Formatting").Visible = False
End Sub

Sub wiedereinblenden()
    With ActiveWindow
        .DisplayGridlines = True
        .DisplayHeadings = True
        .DisplayOutline = True
        .DisplayZeros = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
    End With
    With Application
        .ShowStartupDialog = True
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .ShowWindowsInTaskbar = True
    End With
    Application.CommandBars("Formatting").Visible = True
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz mit VBA"