• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

excel in explorer

  • Onderwerp starter Onderwerp starter maartenf
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
M

maartenf

Ik wil een excelbestand gebruiken op een internetpagina. In dit excelbestand zitten een aantal hyperlinks. zodra je daarop klikt krijg je een melding dat het excelbestand is gewijzigd, met optie wijzigingen opslaan ja/nee/annuleren. Hoe kan ik die melding uitzetten?
 
Laatst bewerkt door een moderator:
Hallo Maarten,

Probeer het eens met in This Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Gr, Justes
 
Justes zei:
Hallo Maarten,

Probeer het eens met in This Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Gr, Justes

helaas, dat helpt niet.
het bestand staat op mijn homepage

http://home.tiscali.nl/franssens/wk2006/klassement.xls

mensen die het bestand openen, mogen (en kunnen) niet opslaan
tenzij ze dat willen doen op hun eigen schijf.

ik wil dus eigenlijk dat ze helemaal geen melding krijgen dat document gewijzigd is
 
Justes zei:
Hallo Maarten,

Probeer het eens met in This Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Gr, Justes

ik geloof dat het opgelost is.
je hebt me in de goede richting gebracht
heb nu onderstaande code ingevuld

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ActiveWorkbook.Saved = True
End Sub

en dat lijkt te werken. thanx
 
Hallo Maarten,

Dat is mooi, ik was al bezig met de Hyperlinks te vervangen door knoppen.

Sub details()
Sheets("details").Activate
End Sub
Sub klassement()
Sheets("klassement").Activate
End Sub
Sub Halloffame()
Sheets("Halloffame").Activate
End Sub

Gr Justes
 
Justes zei:
Hallo Maarten,

Dat is mooi, ik was al bezig met de Hyperlinks te vervangen door knoppen.

Sub details()
Sheets("details").Activate
End Sub
Sub klassement()
Sheets("klassement").Activate
End Sub
Sub Halloffame()
Sheets("Halloffame").Activate
End Sub

Gr Justes

Yep, dat was ook een oplossing geweest
maar ik geloof dat ik wat te snel ben geweest om te zeggen dat het opgelost was

door het klikken op een hyperlink krijg je de melding nu niet meer
maar nog wel bij het afsluiten van het bestand
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan