[問題] Excel VBA 複製加密工作表的資料

作者: Arlex (旅人)   2016-08-24 10:26:36
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel
版本:2010
大家好,我有一個工作簿裡面sheet1用以下的方式保密
Private Sub Worksheet_Activate()
If Application.InputBox("PASSWORD:") = "12345" Then
Range("A1").Select
Sheets("sheet1").Cells.Font.ColorIndex = 56
Else
MsgBox "You may not modify this sheet!"
Sheets("sheet2").Select
End If
End Sub
Private Sub Worksheet_Deactivate()
Sheets("sheet1").Cells.Font.ColorIndex = 2
End Sub
目的是不讓不知道密碼的人去做輸入修改的動作,
現在要在sheet2將sheet1的資料做複製文字貼上(去掉公式)
我現在的做法是用巨集,不過因為有選擇sheet1的動作,所以會跳出輸入密碼的視窗
1.想請問有甚麼做法可以複製文字貼上不會跳出密碼
2.資料是隨時繼續增加的所以選擇範圍要可以變動的
補充:sheet2的目的是給不知道密碼的人可以檢視資料、篩選、排序的用途
作者: soyoso (我是耀宗)   2016-08-24 10:36:00
問題2,如為動態範圍方面range.currentregionworksheet.usedrange或range.end方面看是否有符合問題1,看加上application.cutcopymod判斷是否有符合回文有落字,為cutcopymode少了個e

Links booklink

Contact Us: admin [ a t ] ucptt.com