Blattschutz

Bild

Betrifft: Blattschutz von: Philipp
Geschrieben am: 30.03.2005 16:36:49

Hallo,

gibt es unter Excel einen Schutz, der alle Tabellenblätter vor manuellen Eingaben schützt, so dass Veränderungen nur per Makro vorgenommen werden können?

Vielen Dank
Philipp

Bild


Betrifft: AW: Blattschutz von: Andi
Geschrieben am: 30.03.2005 16:55:55

Hi,

ob das direkt geht, weiss ich nicht, aber Du kannst einen Blattschutz mit Passwort vergeben, und diesen dann jeweils im Makro aufheben und wieder aktivieren, zB so (Passwort ist 'servus'):


Sub blattschutz()
Worksheets("Tabelle1").Unprotect "servus"
Cells(1, 1).Value = "hallo"
Worksheets("Tabelle1").Protect "servus" 
End Sub


Wenn niemand das Passwort wissen soll, empfiehlt es sich natürlich, den VBA-Code wiederum mit nem Passwort zu schützen.

Schönen Gruß,
Andi


Bild


Betrifft: Geht das auch für die gesamte Arbeitsmappe? von: Philipp
Geschrieben am: 30.03.2005 17:16:44

Hallo,

supervielen Dank erstmal! Ich hab noch ne Frage: Kann ich auch direkt die gesamte Arbeitsmappe schreibschützen, da alle Makros an verschiedenen Tabellenblättern rumwerkeln?
Oder muss ich jedes Blatt einzeln un-/schützen?

Danke für die Hilfe
Philipp


Bild


Betrifft: AW: Geht das auch für die gesamte Arbeitsmappe? von: Hajo_Zi
Geschrieben am: 30.03.2005 17:35:35

Hallo Philipp,

Option Explicit
Dim WsTabelle As Worksheet


Private Sub Aufheben()
'**************************************************
'* H. Ziplies                                     *
'* 28.12.02                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
'*                                                *
'**************************************************
    For Each WsTabelle In Sheets
        WsTabelle.Unprotect ("")
    Next WsTabelle
End Sub



Private Sub Schutz()
'**************************************************
'* H. Ziplies                                     *
'* 28.12.02                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* <a href="http://home.media-n.de/ziplies/">http://home.media-n.de/ziplies/</a> *
'*                                                *
'**************************************************
    For Each WsTabelle In Sheets
        WsTabelle.Protect ("")
    Next WsTabelle
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: AW: Blattschutz fuer alle BLÄTTER einer mappe von: th.heinrich
Geschrieben am: 30.03.2005 17:39:10

hallo Philipp,

code gehoert in DieseArbeitsmappe


Private Sub Workbook_Beforeclose(Cancel As Boolean)
        Application.ScreenUpdating = False
        Dim wks As Integer
        For wks = 1 To Sheets.Count
                Sheets(wks).PageSetup.LeftFooter = "&08" + ThisWorkbook.FullName _
                & " - " & Sheets(wks).Name
        Sheets(wks).Protect password:="pass"
        Next wks
        Application.ScreenUpdating = True
End Sub


die Fusszeile kannst Du ja rauskommentieren.

gruss thomas


Bild


Betrifft: VIELEN DANK EUCH ALLEN!!! ES FUNKTIONIERT!!! o.T. von: Philipp
Geschrieben am: 30.03.2005 17:48:41




 Bild

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