Tilretning af vbakode, til at undgå at lukke regneark.

Glem det du har fundet... tror jeg, at jeg vil sige...

I kodemodulet ThisWorkbook smider du følgende
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = gbWorkBookClose
End Sub


I et almindeligt kodemodul kan du så lave følgende:
Option Explicit

Public gbWorkBookClose As Boolean

Public Sub BookCloseAllow()
    gbWorkBookClose = False
End Sub

Public Sub BookCloseDisallow()
    gbWorkBookClose = True
End Sub

Så kan du lade dine knapper kalde disse to makro'er med dine knapper

-> flemmingdahl

kan ikke lige gennemskue koden.

men er det sådan at når man åbner sit ark at så er lukke funktionen slået fra, fra starten.

for det jeg søgte var at det låser den funktion fra starten, og så skulle man kunne lukke med knappen.

men det kan godt være at det er mig der har misforstået koden.

Jeg har tilføjet lidt ekstra kode og lagt det hele ind i en fil, som kan hentes her http://www.smartoffice.dk/Tips/Eksperten/Index.asp måske det kan give dig overblikket

Ved du om det kan lade sig gøre uden at man skal trykke på nogle knapper, andet når man vil lukke arket. Sådan at når man åbner kan man kun lukke det på den knap. For ham jeg deler excel med skal ikke have muligheden for at vælge om det skal kunne lukkes eller ej. kun ved at trykke på den knap.

Jeg havde en ide om at man kunne fortælle den kode der ligger i toppe at når man trykker på knappen skal den sætte cancel = false

Var ved at rode lidt med en kode, de ser sådan her ud. Men ved ikke om det kan lade sig gøre.

Private Sub Workbook_BeforeClose(cancel As Boolean)
ActiveWorkbook.Saved = True
cancel = True
If CommandButton3_Click = 1 Then
cancel = False
    End If
   
End Sub

Men ellers tak for demo prg. det kunne bruges i et andet projekt jeg er i gang med.  :-)

Ja, jeg lige demo 2

Demo 2 er lagt på nettet samme sted

Klik på "Demo 2: Gem & Luk"

Jeg ikke finde demo 2. Er den lagt ud samme sted som den anden ?

Jeg ville også lige høre om hvordan man ændre i teksten på de knapper der var med i dit første forslag ?

På siden http://www.smartoffice.dk/Tips/Eksperten/Index.asp klikker du på "Demo 2: Gem & Luk"

Der skulle gerne stå
Spm. 799414 - Styring af fil lukning - VBA | Demo 2: Gem & Luk (det er to links - de er testet ok)

Den gjorde den også, det må være mig der er ved at være træt nu. Glemte at opdatere siden, så kunne ikke se det nye der var sket der. :-)

Det var lige det jeg søgte. Du skal have mange tak for hjælpen.

Overføre lige pointene til dig.

Forsat god uge.

Mvh. hepygula

God fornøjelse