excel - Restricting the user to delete the cell contents -

-

is there's way restrict user deleting cell contents without using protect method of excel. have code:

private sub worksheet_beforedoubleclick(byval target range, cancel boolean) dim ws worksheet set ws = thisworkbook.worksheets("sheet1")     if not intersect(target, range("c21:d" & ws.range("c" & ws.rows.count).end(xlup).row)) nothing          cancel = true          msgbox "you not allowed edit!", vbcritical + vbokonly     endif end sub

but disallows editing of cell contents. want make function disallow editing , deleting data in cell without using protect method. thanks!

without lock , unlock, can use this. have there 1 global variable store selection value (to preserve beforechange state). function selectionchange, updating value of current cell, can restore cell value after users try.

sub worksheet_change controling, if user targeting specified row , column (can adjusted whole range), , if try change value, prompted , value set back.

dim prevvalue variant  private sub worksheet_selectionchange(byval target range)      prevvalue = target.value  end sub  private sub worksheet_change(byval target range)        if target.row = 5 , target.column = 5          if target.value <> prevvalue             target.value = prevvalue               msgbox "you not allowed edit!", vbcritical + vbokonly          end if      end if   end sub

edit: disable editing every cell not empty

private sub worksheet_change(byval target range)        if prevvalue <> ""          if target.value <> prevvalue             target.value = prevvalue               msgbox "you not allowed edit!", vbcritical + vbokonly          end if      end if   end sub

Comments

Post a Comment

Popular posts from this blog

java - Run spring boot application error: Cannot instantiate interface org.springframework.context.ApplicationListener -

-
i have spring project , try make use spring boot , run @ embadded tomcat following : https://spring.io/guides/gs/rest-service/ this application //@configuration //@enableaspectjautoproxy @springbootapplication @componentscan(basepackages = "gux.prome") public class application { public static void main(string[] args) { springapplication.run(application.class, args); } } if use maven command: mvn spring-boot:run , project starts fine, need debug , run main method @ intelij, exception occurs: exception in thread "main" java.lang.illegalargumentexception: cannot instantiate interface org.springframework.context.applicationlistener : org.springframework.boot.logging.classpathloggingapplicationlistener @ org.springframework.boot.springapplication.createspringfactoriesinstances(springapplication.java:414) @ org.springframework.boot.springapplication.getspringfactoriesinstances(springapplication.java:394) @ org.springframework.bo...
Read more

reactjs - React router and this.props.children - how to pass state to this.props.children -

-
i'm using react-router first time , don't know how think in yet. here's how i'm loading components in nested routes. entry point .js reactdom.render( <router history={hashhistory} > <route path="/" component={app}> <route path="models" component={content}> </route> </router>, document.getelementbyid('app') ); app.js render: function() { return ( <div> <header /> {this.props.children} </div> ); } so child of app content component sent in. i'm using flux , app.js has state , listens changes, don't know how pass state down this.props.children. before using react-router app.js defines children explicitly, passing state natural don't see how now. using couple of react helper methods can add state, props , whatever else this.props.children render: function() { var children = react.ch...
Read more

Excel VBA "Microsoft Windows Common Controls 6.0 (SP6)" Location Changes -

-
i have excel workbook used generate quotations customers. there main page user inputs data, , there buttons generate various pdfs , send them customer. however, 1 user consistently getting error preventing generating , sending pdfs. i beleive "microsoft windows common controls 6.0 (sp6)". it's installed on users' computers. on mine, location "c:\windows\syswow64\mscomctl.ocx" on others "c:\windows\system32\mscomctl.ocx" the user experiencing issues on 32-bit machine, "mscomctl.ocx" file should in system32. have manually put in there, , pointed common controls reference in vba it. issue seems keep reverting looking in syswow64. since folder doesn't exist, can't find it, , can't produce pdfs. i thought perhaps issue user running older version of office (2007) there users on 2013 , 2016. thought perhaps mixture of 64-bit , 32-bit users. user gets sent workbook other users (as quotation process goes further, gets passed ...
Read more