Microsoft Excel

Herbers Excel/VBA-Archiv

Blattschutz bei SelectedSheets | Herbers Excel-Forum


Betrifft: Blattschutz bei SelectedSheets von: markus
Geschrieben am: 12.01.2010 11:26:50

Hallo zusammen,

ich habe 2 selectierte Blätter, bei denen ich vor der Operation den Schutz entfernen und danach wieder setzen muß.
Das funktioniert leider nicht.

SelectedSheets.Unprotect
Sheets("Test").Unprotect

Geht das überhaupt?

Danke Guß Markus

  

Betrifft: AW: Blattschutz bei SelectedSheets von: markus
Geschrieben am: 12.01.2010 12:29:34

Hallo,
ich habe gleich noch ein Probelm,
bei folgendem dem Kopiervorgang sollen nur Werte in ein Zielblatt kopiert werden.
Dabei wird jedoch die Folrmel aus der Quelldatei mit dem eigenen Wert überschrieben.

Kann mir das bitte jemand erklären.

sh.Range("D6:D48").Value = sh.Range("D6:D48")
sh.Range("D6:D48").Copy .Range("D6:D48")

Danke und Gruß Markus


  

Betrifft: AW: Blattschutz bei SelectedSheets von: markus
Geschrieben am: 12.01.2010 13:20:25

Hallo Detlef,
ich werde es mit den Blattnamen versuchen,
und wie ist das mit dem Kopieren?

Gruß Markus


  

Betrifft: AW: kopieren von: hary
Geschrieben am: 12.01.2010 15:12:38

Hallo Markus
kopieren geht so. Tabelle2=Ziel/ Tabelle1=Quelle

Sheets("Tabelle2").Range("D6:D48") = Sheets("Tabelle1").Range("D6:D48").Value

gruss hary


  

Betrifft: AW: Blattschutz bei SelectedSheets von: Detlef
Geschrieben am: 12.01.2010 15:33:22

Hallo Markus,

Sub procCopy()

    Sheets("Tabelle1").Range("D6:D48").Copy 'Quelle 
    Sheets("Tabelle2").Range("D6:D48").PasteSpecial Paste:=xlPasteValues 'Ziel 

End Sub
Gruß Detlef


  

Betrifft: AW: Blattschutz bei SelectedSheets von: Detlef
Geschrieben am: 12.01.2010 12:29:44

Hallo Markus,

nein das geht nicht. Nur jedes Blatt einzeln. Mit folgendem Code kannst Du alle Blätter entsperren bzw. sperren. Hier ist ein Passwort hinterlegt, wenn nicht, kannst Du den Teil auf weglassen.

Sub procTabelleSchutz()

    On Error Resume Next

    Sheets(1).Select
    For i = 1 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Protect Password:="WarWohlNichts", DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFiltering:=True
    Next i
End Sub
    
Sub procTabelleOhneSchutz()

    On Error Resume Next

    Sheets(1).Select
    For i = 1 To Sheets.Count
    Sheets(i).Select
    ActiveSheet.Unprotect Password:="WarWohlNichts"
    Next i
End Sub
Alternativ kannst Du die beiden Blätter auch über den Namen ansteuern.

Gruß Detlef


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