Moi Gurut
Kuka osaa neuvoa, miten saan VBA:lla excel valikosta tallennaNimellä / Save As valinnan pois.
Tarkoitus on että tiedostoa käyttävän on pakko tallentaa asiakirja luomallani macro painikkeella.
Tallenna nimellä pois
7
512
Vastaukset
- gurut
Preventing a Workbook From Being Saved as Another Name.
http://www.ozgrid.com/VBA/prevent-save-as.htm- original
Kiitos linkistä, auttaa eteenpäin.
Nyt olisi saatava työkirjan käyttäjä hyväksymään macrot, eli pakottaa ottamaan macrot käyttöön, muuten toi edellinen ei ole aukoton. - gurut
original kirjoitti:
Kiitos linkistä, auttaa eteenpäin.
Nyt olisi saatava työkirjan käyttäjä hyväksymään macrot, eli pakottaa ottamaan macrot käyttöön, muuten toi edellinen ei ole aukoton.niin jatketaan vielä hieman.
Ao. koodi piilottaa kaikki muut paitsi yhden sheetin, sekä näyttää varoituksen jos makroja ei ole aktivoitu.
Makrojahan ei voi aktivoida etänä, vaan käyttäjän täytyy hyväksyä niiden suoritus.
http://www.dotxls.com/excel-security/28/how-to-make-a-user-enable-excel-macros original kirjoitti:
Kiitos linkistä, auttaa eteenpäin.
Nyt olisi saatava työkirjan käyttäjä hyväksymään macrot, eli pakottaa ottamaan macrot käyttöön, muuten toi edellinen ei ole aukoton.Ainahan käyttäjä voi ajaa toiselta työkirjalta makron ja tehdä mitä vaan sun työkirjallesi jos ohjelmointitaitoa riittää...
No asiaan.
Makrojen suojaustasoa voit muuttaa alhaiseksi,jolloin makrojen hyväksyntää ei kysellä tai sitten teet makron, joka tekee seuraavaa
1. Suljettaessa tai tallennettaessa piilotetaan kaikki taulukot paitsi yksi ns. pääsivu. Tälle sivulle infoa, jolla kerrot, että käyttäjän on otettava makrot käyttöön käynnistämällä työkirja uudelleen.
2. Jos käyttäjä ei hyväksy makroja avataan excel ja vain pääsivu näkyy...
3.Jos hyväksyy makrot niin toimii normaalisti. Käytä Excelin xlVeryHidden ominaisuutta piilottaessasi taulukot, jolloin niitä ei saa näkyviin menun kautta
Keep Exceling :-)kunde kirjoitti:
Ainahan käyttäjä voi ajaa toiselta työkirjalta makron ja tehdä mitä vaan sun työkirjallesi jos ohjelmointitaitoa riittää...
No asiaan.
Makrojen suojaustasoa voit muuttaa alhaiseksi,jolloin makrojen hyväksyntää ei kysellä tai sitten teet makron, joka tekee seuraavaa
1. Suljettaessa tai tallennettaessa piilotetaan kaikki taulukot paitsi yksi ns. pääsivu. Tälle sivulle infoa, jolla kerrot, että käyttäjän on otettava makrot käyttöön käynnistämällä työkirja uudelleen.
2. Jos käyttäjä ei hyväksy makroja avataan excel ja vain pääsivu näkyy...
3.Jos hyväksyy makrot niin toimii normaalisti. Käytä Excelin xlVeryHidden ominaisuutta piilottaessasi taulukot, jolloin niitä ei saa näkyviin menun kautta
Keep Exceling :-)oli koneella probleemia ja ei pystynyt lähettämään viestiä ja edellinen onkin jo kertonut samat jutut sillä aikaa...
- original
kunde kirjoitti:
oli koneella probleemia ja ei pystynyt lähettämään viestiä ja edellinen onkin jo kertonut samat jutut sillä aikaa...
jaksatko vielä neuvoa.
Miten voin yhdistää noi molempien linkkien vbat.
siten että Sheet6 on varoitus sivu original kirjoitti:
jaksatko vielä neuvoa.
Miten voin yhdistää noi molempien linkkien vbat.
siten että Sheet6 on varoitus sivuen ole tarkistanut originaalikoodin toimivuutta...
Private Const dsWarningSheet As String = "sheet6" 'Enter name of the Entry/Warning Page
Private Sub Workbook_Beforesave(ByVal SaveAsUI As Boolean,
Cancel as Boolean)
For Each ds In ActiveWorkbook.Sheets
If LCase(dsWarningSheet) = LCase(ds.Name) Then
ds.Visible = True
Else
ds.Visible = xlVeryHidden
End If
Next
If SaveAsUI = True Then Cancel = True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal ds As Object, ByVal Target As Excel.Range)
If LCase(ds.Name) = LCase(dsWarningSheet) Then
For Each ds In ActiveWorkbook.Sheets
ds.Visible = True
Next
ActiveSheet.Visible = xlVeryHidden
End If
End Sub
Private Sub workbook_open()
Sheets(dsWarningSheet).Select
For Each ds In ActiveWorkbook.Sheets
ds.Visible = True
Next
ActiveSheet.Visible = xlVeryHidden
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1762135
Törkeä eläinsuojelurikos Sonkajärvellä
Pohjois-Savossa Sonkajärvellä noin 40 kissaa ja reilut 10 koiraa on jouduttu lopettamaan kaltoinkohtelun vuoksi, kertoo381483Jotkut ihmiset pelkäävät syöpää sairastavaa
On hauskaa, kun kertoo jollekin, että "minulla on syöpä". Jotkut käyttäytyvät kuin se olisi tarttuva tauti. Eivät uskall1321174Se ei ihan oikeasti vaatisi kuin yhden
Tekstiviestin... Jos rakastat minua vielä toivoisin että laittaisit minulle viestiä. Rakastatko? Oletko oikeasti niin pe56932- 55866
Lavrov suivaantui Stubbille perustellusti.
Lavrov perusteli suivaantumistaan tosiasioilla Suomen tarinasta sotiemme jälkeen, tutkija Tynkkynen ja pankkihenkilö Sol252845Kääminsä polttanut taksi suomussalmella
Vieläkö sillä hermonsa menettäneellä hulluja ylinopeuksia ajavalla asiakkaansa haukkuvalla( jos ajat paska kyydin hänen20802Jorma Uotinen avaa sanaisen arkkunsa TTK-miesparista ja koko uudistuksesta: "Sehän on..."
Tanssii Tähtien Kanssa -parketilla nähdään ensimmäistä kertaa Suomessa tanssiparina miespari kauden alusta asti. Mikko S18735Aina ku nään sun kuvan
Tekis mieli kirjoittaa viesti: Moi kulta, on ikävä❣️🤗 ihan noin vain, lyhyt ja ytimekäs 😁🤭58723Sukupuolia on vain kaksi- kohukassista tuli kova tuomio perheenisälle oikeudessa.
https://www.iltalehti.fi/kotimaa/a/4d4db0d9-4dda-4ba6-a699-25d725683ad6 Miten näin normaalista kassissa olevasta tekstis202679