Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1044to1048
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
Inhaltsverzeichnis

Schutz aufheben und wieder setzen

Schutz aufheben und wieder setzen
27.01.2009 12:21:00
Markus
Hallo,
habe mit folgendem Makro ein Problem. Ich müßte den Schutz vor dem Kopieren bei allen Blättern entfernen und nach dem Kopiervorgang wieder setzen.
Kann mir bitte jemand helfen.
Danke Gruß Markus
Dim sh As Worksheet
UF_Dateiauswahl2.Show
'ActiveSheets.Unprotect Password:="x" ' Schutz aus ?
If bolKopieren2 = True Then
For Each sh In ActiveWindow.SelectedSheets
If sh.Name "Tabelle1" Then
With Workbooks(strDateiName2).Sheets(sh.Name)
sh.Range("D8:D37").Copy .Range("D8:D37")
.Range("H44") = sh.Range("H44")
End With
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="x"
End If ' Schutz ein ?
Next
Sheets("Tabelle1").Select
End If
End Sub

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schutz aufheben und wieder setzen
27.01.2009 12:30:36
Hajo_Zi
Hallo markus,

Option Explicit
Sub Markus()
Dim sh As Worksheet
UF_Dateiauswahl2.Show
If bolKopieren2 = True Then
For Each sh In ActiveWindow.SelectedSheets
If sh.Name  "Tabelle1" Then
With Workbooks(strDateiName2).Sheets(sh.Name)
.Unprotect
sh.Range("D8:D37").Copy .Range("D8:D37")
.Range("H44") = sh.Range("H44")
.Protect
End With
End If
Next
Sheets("Tabelle1").Select
End If
End Sub



AW: Schutz aufheben und wieder setzen
27.01.2009 14:08:00
Markus
Sorry Hajo, hab ich mir dann auch gesehen.
bekomme bei Protect einen
Laufzeitfehler 1004
Anwendeungs- oder Objektdefinierter Fehler.
Kannst du mir sagen woran es liegen kann.
Gruß markus
Anzeige
AW: Schutz aufheben und wieder setzen
27.01.2009 12:35:00
Markus
Hab vergessen den Haken bei "Frage noch offen" zu setzen!
AW: Schutz aufheben und wieder setzen
27.01.2009 12:37:00
Hajo_Zi
Halo markus,
wenn Dein Beitrg der erste ist und noch keine Antwort, ist der Beitrag offen. Es kann ja noch keiner geantwortet haben bevor Du die Frage gestellt hast. Oder nur der mit der Glaskugel,
Gruß Hajo
AW: Schutz aufheben und wieder setzen
27.01.2009 12:36:00
Markus
Hab vergessen, den Haken bei "Frage noch offen" zu setzen
AW: Schutz aufheben und wieder setzen
27.01.2009 14:23:54
Markus
Jetzt hab ich es aber wirklich vergessen!
AW: Schutz aufheben und wieder setzen
27.01.2009 21:02:03
markus
...

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige