Ahoj,
neznáte způsob, jak zakázat do zamčeného listu vkládat data přes clipboard? Jde mi o to, že buňky, do kterých uživatel nemá co zasahovat zamknu. To je OK. Ale protože je línej, tak si do buněk, do kterých psát má kopíruje např. čísla zákazníka z různých jiných programů, wordu,.... a rozhasí tím formát cíle podle formátu zdroje a v lepším případě na to zareagují nastavené vzorce chybou "#REF!". Tomu chci zabránit a chtěl bych povolit pouze přímý zápis do buňky.
Díky
Excel - zákaz vkládání Vyřešeno
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel - zákaz vkládání
Tak zakázat to nepůjde nebo o tom nevím jak.
Nevím kolik je buněk do kterých má někdo zapisovat nebo jak často se to děje.
Takže buď když někdo klikne do buňky tak naněj vyskočí Inputbox nebo formulář a pak vstupní údaj zpracuješ jak potřebuješ
nebo je tam nech zapsat a buňku makrem naformátuj tak jak potřebuješ.
Nevím kolik je buněk do kterých má někdo zapisovat nebo jak často se to děje.
Takže buď když někdo klikne do buňky tak naněj vyskočí Inputbox nebo formulář a pak vstupní údaj zpracuješ jak potřebuješ
nebo je tam nech zapsat a buňku makrem naformátuj tak jak potřebuješ.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel - zákaz vkládání
Tak to lze, trochu jsem hledal a zkoušel.
Pokusy jsou v příloze.
To co je pro tebe tak je v modulu ThisWorkbook
nebo toto si tam zkopíruj
Pokusy jsou v příloze.
To co je pro tebe tak je v modulu ThisWorkbook
nebo toto si tam zkopíruj
Kód: Vybrat vše
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'reset vypnuti kontroly stisku klaves (ctrl+v)
Application.OnKey "^v"
End Sub
Private Sub Workbook_Open()
MsgBox "V tomto sesite je zakazano vkladat pres clipboard !!", vbInformation, "Oznameni"
'zakazani stisku klaves (ctrl+v)
Application.OnKey "^v", ""
End Sub
- Přílohy
-
- ZakazaniStiskuKlaves.xlsm
- (17.76 KiB) Staženo 45 x
Re: Excel - zákaz vkládání
Tohle je super, funguje to na CTRL + V, ale když klikneš do buňky pravím tlačítkem a dáš vložit tak to jde.
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel - zákaz vkládání Vyřešeno
Tak pak si dej do listu kde chceš aby to nešlo tyto makra.
Jen změň dle sebe oblast bigRange v obouch makrech.
Jen změň dle sebe oblast bigRange v obouch makrech.
Kód: Vybrat vše
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim bigRange As Range, isect As Range
'az 30 oblasti kam se nema dat kliknout
Set bigRange = Application.Union(Range("A5"), Range("B7:C78"), Range("j7:j78"))
Set isect = Application.Intersect(bigRange, Target)
If Not isect Is Nothing Then
MsgBox "Nelze", vbCritical
Cancel = True
Else
Cancel = False
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim bigRange As Range, isect As Range
'az 30 oblasti kam se nema dat kliknout
Set bigRange = Application.Union(Range("A5"), Range("B7:C78"), Range("j7:j78"))
Set isect = Application.Intersect(bigRange, Target)
If Not isect Is Nothing Then
MsgBox "Nelze", vbCritical
Cancel = True
Else
Cancel = False
End If
End Sub
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 16
- 6808
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 2
- 2019
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
- 1
- 686
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3626
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 3
- 2279
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů