Letzte Zeile springen bei öffnen

Private Sub Workbook_Open() Range("A45").Select Range("A1:M9996").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sheets("Empfaenger").Select Range("A1:E9999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sheets("Kunden").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() dim i as integer range("A45").select if Range("A45")"" then for i=46 to 10000 if cells(i,1)="" then cells(i,1).select exit for end if next i end if Range("A1:M9996").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sheets("Empfaenger").Select Range("A1:E9999").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Sheets("Kunden").Select End Sub

Hallo
Jezt habe ich noch ein "klitzekleines" Problem.
Ich habe diesen Code in diversen Arbeitsblättern um zu vermeiden, daß andere die Codes löschen können. Mit dem vorigen Doppelklick gelange ich in das Sheet "Abbucher". Bisher ging alles bestens, jedoch seit gestern macht der u.a. Code maken.
Kann wer sagen, warum das so ist, es kommt immer ein Laufzeitfehler 1004 ... Die Zelle oder das Diagramm, das Sie versuchen zu ändern, ist geschützt und somit schreibgeschützt usw.
Hier der Code: (er sollte eingentlich bewirken, daß der Schutz neutralisiert wird und nach dem Eintrag wieder aktiviert wird)


Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="cesar", Userinterfaceonly:=True
End Sub

Danke für jede Hilfe
chris

hallo chris,


Sub schutzein() 'Mappen und Blattschutz einschalten
'Exit Sub 'Für Testzwecke
With ActiveSheet
.Range("B1").Locked = False
.Range("C1:D1").Locked = False
.Range("B3:C3").Locked = False
.Range("G3").Locked = False
.Range("B5:D5").Locked = False
.Range("B7").Locked = False
.Range("B11").Locked = False
.Range("A15").Locked = False
.Range("F15").Locked = False
.Range("B18:B52").Locked = False
.Range("B58").Locked = False
.Range("B60").Locked = False
.Range("B62").Locked = False
.Range("E62:F62").Locked = False
.Range("E82:F82").Locked = False
End With
ActiveSheet.Protect Password:="test", Contents:=True, Scenarios:=True
ThisWorkbook.Protect Password:="test", Structure:=True, Windows:=True
End Sub

mit "Range("A1:A3").Locked=False" hebst du den schutz für die zellen A1:A3 auf. beachte dabei, dass verbundene zellen mit "Range("A1:A3")" angegeben werden müssen.
sollte der lösungsvorschlag nicht deinen vorstellungen entsprechen, lade bitte die excel-datei hoch.
heiko

private sub worksheet_beforedoubleclick(byval target as range) if target=range("A1:Z999") then worksheets("abbucher").unprotect "passwort" worksheets("brief").unprotect "passwort" end if call datenkopieren worksheets("abbucher").protect Password:="passwort", Contents:=True, Scenarios:=True worksheets("brief").protect Password:="passwort", Contents:=True, Scenarios:=True end sub

Beliebteste Forumthreads (12 Monate)

Letzte Zeile springen bei öffnen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

282 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Letzte Zeile springen bei öffnen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

282 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread