Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketluk uden at gemme
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5483 		Direkte link til dette indlæg Emne: luk uden at gemme
    Sendt: 24.Maj.2019 kl. 10:29
kan man ikke lave en knap der lukker hele arket uden at gemme da det et tomt ark hvor der dagligt tastes data ind som gemmes som pdf fil derfor skal arket lukkes uden at gemme så det er tomt til næste dag.
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top



Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08.Nov.2013
Status: Offline
Point: 95 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 11:30
prøv at indsætte dette i denne projecktmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08.Nov.2013
Status: Offline
Point: 95 		Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 09:57
For at tvinge en projektmappe til at lukke uden at gemme ændringer, skal du skrive følgende kode i et Visual Basic-modul i den pågældende projektmappe.

Sub CloseNoSave()

   ThisWorkbook.Saved = True

End Sub
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5483 		Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 10:45

jeg har forsøgt at sætte det i dette ark men har ikke kunnet få et til at virke mine forsøg er slette igen.
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08.Nov.2013
Status: Offline
Point: 95 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 11:30
prøv at indsætte dette i denne projecktmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5483 		Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 11:36
Det virker på krydset og luk i filer,
kan man også ligge den på en knap oppe ved siden af de andre på selve arket?
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
icet Se dropdown
Bronze bruger
Bronze bruger


Medlem: 08.Nov.2013
Status: Offline
Point: 95 		Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 11:41
lav en knap og kald denne i et modul

Sub CloseNoSave()

  ThisWorkbook.Saved = True
 
  If Application.Workbooks.Count = 1 Then
     Application.Quit
     Else
     ThisWorkbook.Close False
End If

 
End Sub
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5483 		Direkte link til dette indlæg Sendt: 25.Maj.2019 kl. 11:52
Takker det virker bare Handshake
Go' weekend
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk