返回列表下一主題上一主題發帖

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

mycmyc

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

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

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

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

不知能否達成

謝謝

樓主熱帖

yangtest

中學生 Rank: 2

帖子: 36
主題: 6
精華: 0
積分: 69
點名: 0
作業系統: windows 7
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: 台中市
註冊時間: 2011-4-22
最後登錄: 2015-8-25

2^#

發表於 2011-9-24 18:37 | 只看該作者

最基本的方法：先把今日輸入資料的儲存格取消保護，再把整個工作表設為保護。如果在同一個工作表中，只有少數幾個儲存格（今日才輸入資料）可以修改，那就複選不保護的儲存格、在Excel 工具列中點選「格式」、「儲存格」、「保護」，取消鎖定，再把整個工作表設為保護，那就只能在剛剛複選的儲存格輸入資料，其他的儲存格都受保護了，就不能修改、刪除、也不能插入列了！
記得日期變更後，就要重複上述的動作。雖然比較麻煩，在無函數或巨集可用時，就只有這個方法了。

TOP

mycmyc

中學生 Rank: 2

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

3^#

發表於 2011-9-24 23:25 | 只看該作者

感謝你
但那是不可能的任務
我想法是一些表格必須是今天日期才能填
過了今天就不能編修防止輸入人員修改以前資料
謝謝你

TOP

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

4^#

發表於 2011-9-25 08:14 | 只看該作者

回復 1# mycmyc

應需要運用到 VBA 幫忙了

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

5^#

發表於 2011-9-25 09:11 | 只看該作者

這篇文應發問於程式區

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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