[發問] 請問一下 如何讓今日之前 儲存格 不能修改 刪除 也不能插入列 謝謝

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-9-23 00:10 | 只看該作者

[發問] 請問一下如何讓今日之前儲存格不能修改刪除也不能插入列謝謝

請問一下如何讓今日之前儲存格不能修改刪除  也不能插入列
請各位前輩  提供一下方法

如 B1 填入數字後在今日內多能修改  但過了今日就不能修改與插入列
當然如有權限密碼能修改

不知能否達成

謝謝

樓主熱帖

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2011-9-30 10:26 | 只看該作者

回復 13# mycmyc
你的程式是放在SHEET1 開啟檔案是不會執行的
如圖在點一下 ThisWorkbook 將程式碼貼在這裡檔案開啟時會自動執行的

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

13^#

發表於 2011-9-29 23:31 | 只看該作者

回復 12# GBKEE

感謝你指導但我弄好巨集後
必須執行巨集才能鎖定
可以輸入後鎖定嗎
你麻煩你看一下附上檔案問題
謝謝你

Book1.rar (16.63 KB)

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2011-9-28 17:12 | 只看該作者

回復 10# mycmyc
如圖

版主 Rank: 7 Rank: 7 Rank: 7

ANGELA

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

11^#

發表於 2011-9-28 16:26 | 只看該作者

alt+f11

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

10^#

發表於 2011-9-28 16:22 | 只看該作者

回復 8# GBKEE

VBA視窗的ThisWorkbook中
對不起請問一下應該怎麼開啟

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

9^#

發表於 2011-9-26 23:56 | 只看該作者

GBKEE 謝謝你
我就是會亂下載
好像大家多是怕公司資料走光
所以很少用巨集

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-9-26 10:05 | 只看該作者

回復 7# mycmyc
VBA 巨集才聽說會被攻擊入侵
不隨意下載不明檔案,一般是不會的.

帖子: 173
主題: 42
精華: 0
積分: 220
點名: 0
作業系統: win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2010-10-13
最後登錄: 2023-10-11

7^#

發表於 2011-9-26 00:36 | 只看該作者

感謝 GBKEE
我明天試試
謝謝你
VBA 巨集才聽說會被攻擊入侵
一直不敢用是真的嗎
謝謝大家指導

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-9-25 10:52 | 只看該作者

本帖最後由 GBKEE 於 2011-9-25 10:53 編輯

回復 5# 317
請將程式碼複製到 :VBA視窗的ThisWorkbook中,存檔後重新開檔便可

Private Sub Workbook_Open()
Dim 密碼 As String, Sh As Worksheet
密碼 = "1234"
Set Sh = ActiveSheet '作用中的工作表
'Set Sh = Sheet1 'VBA 物件名稱
'Set Sh = Sheets("麻辣家族討論") '活頁簿工作表名稱
'Set Sh = Sheets(2) '活頁簿工作表的排序
With ThisWorkbook 'ThisWorkbook -> VBA 的活頁簿物件
.Names.Add "日期", Date - 1, False '活頁簿定義名稱, False->隱藏
'執行一次後請在前面加上註解 " ' " 或刪除停止此程式碼執行
If Val(Replace(.Names("日期"), "=", "")) <> Date Then '不是今日
.Names("日期").Value = Date '修改Value為今日
.Names.Add "MyRange", Sh.UsedRange ', False '定義名稱"MyRange" 範圍指定為 ActiveSheet.UsedRange
'.Names.Add "MyRange", Sh.UsedRange , False 'False->定義名稱隱藏
With Sh '指定的工作表
.Unprotect 密碼 '取消工作表保護
.Cells.Locked = False '取消儲存格鎖定->工作表的Cells
.Cells.FormulaHidden = False '取消儲存格隱藏->工作表的Cells
Range("MyRange").Locked = True '儲存格鎖定-> "MyRange"的範圍
Range("MyRange").FormulaHidden = True '儲存格隱藏-> "MyRange"的範圍
.Protect 密碼 '工作表設定保護
End With
End If
End With
End Sub

複製代碼