Alle Tabellen mit-...

Forumthread: Alle Tabellen mit-...

13.01.2009 15:03:00

Walter

Gute Tag Zusammen,
ich möchte beim öffnen der Datei das alle Tabellen mit
ActiveSheet.ScrollArea = "A1:K5000"
versehen werden.
Das Problem in allen Tabellen ist der Schutz + VBA Schutz eingefügt.
Der Tabellenschutz lautet: ActiveSheet.Unprotect ("wwmb")
mfg Walter MB

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Alle Tabellen mit-...

13.01.2009 15:59:00

Hoffi
Danke Hoffi !!! -)

13.01.2009 16:48:35

Walter
AW: Danke Hoffi !!! -)

14.01.2009 09:54:00

Hoffi

AW: Alle Tabellen mit-...

13.01.2009 15:59:00

Hoffi

Hallo Walter,
Code in Modul "Diese Arbeitsmappe"


Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
With ws
.Unprotect "wwmb"
.ScrollArea = "A1:K5000"
.Protect "wwmb"
End With
Next ws
End Sub

Grüße
Hoffi

Danke Hoffi !!! -)

13.01.2009 16:48:35

Walter

Hallo Hoffi !!!
Danke geht doch !
Was macht Tennis, brauch mal einen zusätzlichen.
mfg Walter mb

AW: Danke Hoffi !!! -)

14.01.2009 09:54:00

Hoffi

Hallo Walter,
Tennis? spiele garkein Tennis.
Grüße
Hoffi

Forumthread: Alle Tabellen mit-...

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread