AutoOpen event

Lars

Jeg har ledt lidt og tror jeg har fundet en måde - i hvert tilfælde i Excel 97:

- Åbn din kode i visual basic vinduet
- Højreklik på arket i Projektvinduet (øverst til venstre hos mig)
- Vælg egenskaber for "navn på projekt"
- Vælg fanebladet Beskyttelse

Så tror jeg du finder det, du leder efter.

//jap

Hej Jap

Jeg tror du har misforstået mig. Jeg er ikke interesseret i at vide, hvordan jeg skjuler koden for viewing. Det har jeg fuldstændigt styr på.
Der i mod er jeg interesseret i, at kunne styre den backdoor, der findes i autoopen eventen, så det ikke er muligt at starte mit regneark uden kørsel af autoopen eventen.

Lars

Application.Interactive = False
' Din kode
Application.Interactive = True

Hej Flemming

Jeg prøver det i morgen. Skal linierne stå udenfor sub'en

Lars

Sub Auto_Open()
  Application.Interactive = False
  ' Din kode
  Application.Interactive = True
End Suc

Hej Flemming

Hvilken funktion giver koden? Hvis jeg vælger følgende kode i et modul:

Sub Auto_Open()
  Application.Interactive = False
  MsgBox ("Hello World")
  Application.Interactive = True
End Sub

Så starter koden ikke op, hvis jeg trykker shift samtidigt med at regnearket åbnes.

Lars

så har jeg ikke noget forslag lige pt.

Det var ærgeligt. Men ellers tak for din hjælp Flemming.

Lars

Hej Lsimony -> hvis dine spm har lidt sammenhæng er dine muligheder nok lidt begrænsede, da bruger også kan lade være med at aktiver makroer (sætte sikkerhden til mellem eller høj), men jeg har alligevel et forslag.

Opret et forside ark hvor du skriver at dette regne ark kun kan bruges med makroer osv.
indsæt så disse to makroer i thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Ark1" Then _
  sh.Visible = xlVeryHidden
Next
End Sub

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
  sh.Visible = True
Next
call macro1
call macro2
call osv
End Sub

I beforesave skjuler du alle ark undtaget din forside. Du skjuler den med xlveryHidden hvilket gør at man ikke kan se dem under format / ark. De kan kun vises igen via VBA.
Dette gør du så i Workbook_open

lsimony: Hvordan fan... har du fundet ud af, at du kan omgå Auto_open ved at trykke shift. Smart, i øvrigt? Sorry, skal ikke forstyrre mere...

Hej Bak

Undskyld at jeg ikke har svaret før, men rent arbejdsmæssigt har jeg ligget vandret. ;-).

Jeg er ikke interesseret i at skjule mine ark, men at låse dem, så evt. kritiske formler ikke kan ændres af brugeren.

Jeg tror den eneste løsning måske er at skrive en "Hvis Du Trykker På Tast Shift-event". Er dette muligt?

Til Martin Moth

Jeg så på et tidspunkt, et eller andet sted under Help i VBA editoren, noget omkring tryk af shift og opstart af en macro enabler kørslen af en macro. Jeg kan bare ikke huske, hvor under Help at det stod. Desværre. Men det virker på en auto_open()

Lars

Hej Lars

En Excel "guru" skriver følgende på nettet omkring shift problematikken
"A thousand virus writers out there would also like to prevent this. Luckily, they can't"

Jeg tror ikke på du kan komme omkring det.

Lars -> hvis du gør som jeg skriver er arkene kun skulte, hvis auto_open makroen ikke har fået lov at køre. dvs. hvis shift har været trykket ned under åbning.

Hej Bak

Jeg tjekker din kode på mandag, hvor jeg har adgang til databasen, der ikke kan lide låste regneark.

Hej Flemming. Jeg tror din Guru har ret. Det er sikkert rart at have denne backdoor i baghånden. Det er bare ærgeligt, hvis det ikke kan lade sig gøre i mit tilfælde.

God weekend

Lars

Hej Bak

Nu har jeg prøvet din kode. Det var ikke det jeg var ude efter. Desværre. Jeg var kun ude efter at låst alle mine celler ved en start op. Selv om jeg trykker shift ved start op. Pga. min database af en eller anden grund ikke kan håndtere regneark med låste celler.

Men i skal alle have tak for jeres inputs.

Lars

Så Flemming fortjener vel pointene, da han iflg sit indlæg "31/01-2003 13:47:32" mente at det ikke kan lade sig gøre.

Lars